5 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR3
10 POKE53272,21:POKE648,4:POKE55,0:POKE56,160:POKE51,0:POKE52,160:GOSUB38
12 SYS57812"SID PLAYER",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
14 SYS57812"FONT",8,0:POKE780,0:POKE781,0:POKE782,100:SYS65493
16 SYS57812"MUSIC",8,0:POKE780,0:POKE781,0:POKE782,108:SYS65493
30 PRINT"[144]LOAD"CHR$(34)"PRESENTER"CHR$(34)",8"
32 PRINT"RUN"
36 POKE631,13:POKE632,13:POKE198,2:END
38 POKE53281,0:POKE53280,0:X$=CHR$(13)+""
40 A$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
42 PRINTCHR$(142)"[147][155]"X$"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
44 PRINT"  [192][155][192][192][152][192][192][152]  RETURNING TO LOADSTAR...  [146][192][192][155][192][192][192]"X$;
46 PRINT"[145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
48 FORI=2TO10:A$=MID$(A$,5):POKE214,24-I:PRINT:PRINTSPC(20-LEN(A$)/2)"[158]"A$""
50 NEXT:RETURN